home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Hyper / C-Cl / ClassManag.sit / Graph / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-06-18  |  2.9 KB  |  23 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>4</cardCount>
  7.     <cardID>5022</cardID>
  8.     <listID>2980</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStack
  17. set lockScreen to true
  18. set lockMessages to true
  19. set cursor to 4
  20. domenu New Card
  21. global nbr
  22. global var
  23. put 0 into itm
  24. put 0 into hundrh
  25. put 0 into ninh
  26. put 0 into eigh
  27. put 0 into sevh
  28. put 0 into sixh
  29. put 0 into fifh
  30. put 0 into forh
  31. put 0 into thirdh
  32. put 0 into twenh
  33. put 0 into tenh
  34. put 0 into zeroh
  35. repeat with counter = 1 to var
  36. add 1 to itm
  37. put word itm of nbr into test
  38. if value of test > 99 and value of test < 120 then add 1 to hundrh
  39. if value of test > 89 and value of test < 100 then add 1 to ninh
  40. if value of test > 79 and value of test < 90 then add 1 to eigh
  41. if value of test > 69 and value of test < 80 then add 1 to sevh
  42. if value of test > 59 and value of test < 70 then add 1 to sixh
  43. if value of test > 49 and value of test < 60 then add 1 to fifh
  44. if value of test > 39 and value of test < 50 then add 1 to forh
  45. if value of test > 29 and value of test < 40 then add 1 to thirdh
  46. if value of test > 19 and value of test < 30 then add 1 to twenh
  47. if value of test > 9 and value of test < 20 then add 1 to tenh
  48. if value of test >= 0 and value of test < 10 then add 1 to zeroh
  49. end repeat
  50. set lockScreen to false
  51. set lockMessages to false
  52. choose line tool
  53. set linesize to 4
  54. if value of hundrh > 0 then ¬¨
  55. drag from 90,40 to (90 + (value of hundrh * 10)),40
  56. if value of ninh > 0 then ¬¨
  57. drag from 90,65 to (90 + (value of ninh * 10)),65
  58. if value of eigh > 0 then ¬¨
  59. drag from 90,90 to (90 + (value of eigh * 10)),90
  60. if value of sevh > 0 then ¬¨
  61. drag from 90,115 to (90 + (value of sevh * 10)),115
  62. if value of sixh > 0 then ¬¨
  63. drag from 90,140 to (90 + (value of sixh * 10)),140
  64. if value of fifh > 0 then ¬¨
  65. drag from 90,165 to (90 + (value of fifh * 10)),165
  66. if value of forh > 0 then ¬¨
  67. drag from 90,190 to (90 + (value of forh * 10)),190
  68. if value of thirdh > 0 then ¬¨
  69. drag from 90,215 to (90 + (value of thirdh * 10)),215
  70. if value of twenh > 0 then ¬¨
  71. drag from 90,240 to (90 + (value of twenh * 10)),240
  72. if value of tenh > 0 then ¬¨
  73. drag from 90,265 to (90 + (value of tenh * 10)),265
  74. if value of zeroh > 0 then ¬¨
  75. drag from 90,290 to (90 + (value of zeroh * 10)),290
  76. choose browse tool
  77. end openStack
  78. </script>
  79.     <background id="2706" file="background_2706.xml" name="" />
  80.     <card id="5022" file="card_5022.xml" marked="false" name="" owner="2706" />
  81.     <card id="3743" file="card_3743.xml" marked="false" name="" owner="2706" />
  82.     <card id="3926" file="card_3926.xml" marked="false" name="" owner="2706" />
  83.     <card id="3223" file="card_3223.xml" marked="false" name="" owner="2706" />
  84. </stack>
  85.